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PPPPPPPP LL HII GGGGGGGG EEEEEEEEEE TTTTTTTTTT B8B8BBBBBB UU UU FFFFFFFFFF | 
PPPPPPPP LL WI GGGGGGGG EEEEEEEEEE TTTTTTTTTT BBBBBBBB UU UU FFFFFFFFFF | 
BP PP LL 1] GG EE TT Be BB UU UU FF | 
BP PP LL 1] GG EE TT BB BB UU UU FF | 
PP PP LL 1] GG EE TT BS BB UU UU FF | 
PP PP LL I] GG EE TT BB UU UU FF 
PPPPPPPP = LL 1] GG EEEEEEEE TT BBBBBBBB) «UU UU FFFFFFFF | 
PPPPPPPP —sLL 1] GG EEEEEEEE TT UU UU FFFFFFFF | 
PP LL I] GG GGGGGG EE TT BB UU UU FF | 
PP LL I] GG GGGGGG EE TT BB BB UU UU FF | 
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PP LL 1] GG GG EE TT BR BB UU UU FF ee | 
PP LLELLLLLLLL =I GGGGGG  EEEEEEEEEE TT BBBBBBBB = UUUUUUUUUU FF ied | 
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LL I] SS | 
LL 1] SS | 
LL I] SS 

LL I] SS 

LLLLLLLLLL =‘IIIIII «= SSSSSSSS 
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facility: 

VAX/VMS PL1 runtime Library. 
abstract: 


This module contains the pli runtime routines for buffer manipulation 
used for input stream files. 


SOOO OCSOOSOSOOCOOCOSOOOCO OOOO OOOOOOOOOOOOOOOO 
SoOSOOCOCSSSOSOSSS SOOO SCOCOSOSOSOSOSOSOSOOSOSOOOOOOOOOO 


author: c. spitz 4-oct-79 
modified: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 


: external definitions 


ee ee ee ee ee eee eel elo lolololololololololol elo lo lololelololololololealololeololo) 

pele lala lela lel ole lole lola ol ele lolol oleae elelel el ewleolealeololeleleleleleleolelelelelolelolelolololeoleololololelolalo 

NAME WN OOO NAME WN OOO NAME WN 9 OD NAME WN OC ODONOAOU EWN OWOONOULS WN 
ss 


PUPP TST BS BS BS ES BE EE BWANA NNN PON NPONINPONNPNI PD 2 2 OO se 


DOOOOOCOCOCOOCOSOSOOoOOSOSooOO 
SOOOCOCOCOCOSCoOOSoOOOOoOoOOooOSooo 


$deffcb idefine phile control block 
$defstr. idefine stream block offsets 
$defcvtind idefine convert indices 
$rmsdef idefine rms error codes 
$defrtscan idefine runtime scan masks 
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SEP= 


0 28 $devdef sdefine device bits in fab 
Q 9 $fabdef idefine fab offsets 
¢ Srabdef sdefine rms rab offsets 
0 66 ; ae 
0 635 ; local definitions 
3 

00000013 66 terminator = pli$c_blank+pli$c_comma ;stream input field terminator 
0 68 rtshare shareable 
0 $ 
0 a3 
0 71 ; local data 
0 ue 
0 7 . 

01 00 0 74 revbit: .byte 0,1 sreversed bits for b1 

01 02 00 0 75 «byte 0,2,1,3 reversed bits for b 

02 04 00 0 76 ebyte 0,4,2,6,1,5,3,7 sreversed bits for b 

04 08 00 0 ebyte 0,8,4 12,2,10.6,14,1,9 reversed bits for bé4 

03 OD 05 cbyte 5.18,8,11,7,15 : 


p++ 
; local commentary 


The stream input buffer ns hea | ig + routines operate on 2 entities. 
i These are the buffer and the field. The buffer contains the characters re- 
turned by am rms gt The field Ee. A. the characters that the conversion 
sreut ines process. They are different to handle quoted strings, bit strings, 
sand fields that cross buffer boundaries. They are accessed by three pointers, 
z;the starting address, the address of the next character to be processed, and 
;the address one byte past the current end of the buffer or field. e.g. 


OOWONAOULS WN OOo 
** 


a ceecosoccsocosscesesce= uf fere-datgroroeccoooooscoscs >it 
it his is the data in the! i buffer. 123, 12345, a toseck 5 


str_l_fld_pt str_l_fld_end 


e that str_b_field(ri1) is the first character in the field, 
while feb. t _buf(ap) Ts"the address of the first character in the buffer. 


The Fol lauing properties are used throughout ants nodules 

1. The Length of the a a ‘this is the data in the” 
ro L_buf_pt - fcb_l_buf for the buffer and 

r-t- tle. “pt - addr(Str_l_field) for the field 

2. The tength of~the un-processed characters in the buffer (from the 
character pointes to by fcb_l buf pt (the *'2"') to the end of 
the buffer (the ‘9"') is: fcBb_T_buf_end - fcb_l_buf_pt 

;3. Field overflow occurs ah. (str_T “td ‘pt + <the Tength™ of the 
string to move to the fieldS)"is gequ str_l_fld_end. 


MmmmmmmmmmmmmmmmmmmMmmmmmmmmmmmmmmmmomnarrIooooOOOOOOCOOOCOCOO 
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QO1IE 119 ;+4 
BATE i y 3 pli$$getnlis_r6 -- get next List field from the input stream 
OOiE : ; 3; functional description: 
QO1E 124 ; This routine gets elements from a pl1 input stream. It is called by 
QOO1E 125 ; the pli$getl*** routines to return the next List field in the 
QO1E 126 ; stream buffer. It returns the address and length of the character 
QO1E 127 ; string or bit string that contains the value of the next field in the 
3 ! 3 3; stream. It handles the allocation and filling of the stream buffer. 
QO1E 130 ; calling sequence: ; 
OO1E 131; ¥sb pli$$getnlis_ré6 
OO1E 13 : 
QO1E 133 ; inputs: 
QO1E § 134; ms = address of file control block 
QO1E 135 ; rll = address of stream block 
QO1E 136 ; outputs: - the file control block and stream block are updated. | 
QO1E 137 ; r0 = address of field or 0 if the List element is to be skipped 
QO1E 138; ri = Length of field ; ; 
Bote Fe ; r4 = data type of field set for src case index for pli$cvrt_cg_r3 
OO1E 141 
OO1E 126 -enabl (sb 
OO1E 14 
QOIE 144 pli$$getnlis_ré:: ;get_ next List field 
18 OC AC OO €1 pote 145 bbc #atr_v_eof,fcb_l_attr(ap),20$ ;if end of file : 
OA OC AC 17 €1 002 146 108: bbc #atr-v_string, tcb (_attr(ap),15$ ;if its reall end of string 
50 00000000'8F DO 0028 147 movl #pli$_endstring,r0 :set endstring error 
0363 31 it 148 13$: brw ail sand fail ae 
50 Q0000000'8F 00 9032 149 15$: mov #pli$_endfile,r0 sset endfile condition 
F4 11 0039 150 brb $ sand fai : ; 
10 AB 18 AB_~ 9E Boze 13 20$: movab str_b_field(r11),str_l_fld_pt(r11) start at beginning of field 
S94 138 ; skip blanks and tabs 
50 18 AC 1C AC C3 0040 155 30S: subl3  fcb_l_buf_pt(ap), - get length Left in buffer 
0046 156 fcb~ “buf ~end(ap) .r0 . 
Oc 13 0046 #49157 beql 40$ :if eql, get a new buffer 
OO000000'GF 1¢ BC 50 28 0048 158 spanc r0,afcb_i_buf_pt(ap), - ;scan past blanks and tabs 
11 0051 159 goplisb-stan.Aplisc_blank 
1D 12 0052 160 bneq 0 ; sif_neq, then not end of buffer, cont 
OF OC AB «205 = =«=6ES5 «=—8554 ss 161 408: bbcc #str_v_null_line,str_l_fs(r11) 45$ :if not null Line, cont 
Of AC 04 Ca 0059 166 bicl #atr_m conma_exp, fcb_( “attr (ap) :set comma not expected 
50 18 AB 9E O005D 16 movab  str_B_Field(Fll).r zset addr of field 
51 D4 0061 164 clrl ri set zero Length 
54 2D DO 0063 165 mov | #cvt_k_src_char,r4 set char data type 
05 B066 166 rsb : zreturn 
02E9 30 006 167 45$: bsbw Li$$get_rec send of buffer, so get new record 
D1 0C AC 00 £1 O06A 168 bbc atr_v_eof,fcb_l_attr(ap),30$ ;if not end of file, go again 
B2 11 906F 192 brb 10$ signal eof ; 
x 2. & Boe 109 50$: mov ri,fcb_l_buf_pt(ap) scopy address of next char in buffer 
075 Ha ; if the next char is a comma then see if it is expected. if it is, then 
075 173 ; ignore it, and skip any succeeding blanks and tabs. if it is not expected, 
bee re yj we will ignore this field. 


3 
PLISGETBUFFER = pli runtime input buffer mani sletion 16-SEP-1984 02:18:51 VAX/VMS Macro v04-00 Pa 
tbOS , ety 7 963383 PLIRTL.SRCIPLIGETBUF .MAR; 1 vat 


1C BC C 91 #0075 #17 cmpb #*x2c,afcb_l_buf_pt(ap) ;is next character a comma? 
6s 12 0079 19 bneq 60$ designs site :if neq, then no 
1C A D6 0078 178 incl fcb_l_buf_pt(ap) skip comma in buf 
BB OC AC O E4 pore 17 bbsc #atr_v_comma_exp,fcb_l_attr(ap),20$ ;if comma expected 
5 D4 Boe 180 cirl r0 :clear address 
05 Bp ee 13) rsb yreturn 
poee 188 ; if the next char is a quote then try to parse as a string constant. double 
086 184 ; quotes are converted to single quotes and inserted in field. after we find 
0086 185 ; the trailing quote, the next char must be either a valid terminator (space, 
0086 186 ; tab, or comma) or a B or b. if it is a terminator, process as a char string. 
449 187 ; if it is a B or b, process as a bit string. otherwise, raise the error con- 
086 188 ; dition. 
0086 189; 
1C BC 6027) «691 0086)=— 190 60S: = cmpb = #*x27,afcb_l_buf_pt(ap) ;is next char a quote? 
03 13 OO8A 191 beql 70$ sif eql, then yes 
0174 31 008C 136 brw 300$ 390 process as unquoted string 
1C AC b¢ OO8F 193 70$: incl fcb_l_buf_pt (ap) 3skip the quote 
50 18aAC i1C AC C3 0092 194 sublt3 fcb_l_buf_pt(ap), - sget Length remaining 
0098 195 fcb_l_buf_end(ap),r0 ; 
12 14 0098 196 bgtr 90$ :if gtr, then continue 
30 OQO9A 197 80$: bsbw pli$$get_rec selse get new record 
OA 0C AC 00 €1 QO9D 198 bbc #atr_v_eof,fcb l_attr(ap),90$ ;if not end of file, continue 
50 00000000'8F DO O0A2 199 movil = #pLi$_tnverr,r0 ;set error code 
02E9 31 QOA9 200 brw ail zand fail 
QOAC 201; 
OOAC sg 3; find next quote 
QOAC 203; 
1¢ BC 650 27 «3A OOAC 204 $08: occ #*x27,r0,afcb_l_buf_pt(ap) ;look for a quote 
07 12 OOB1 205 bneq 100$ :if neq, then we found quote 
02 0C AC 15 €1 QOB3 206 bbc #atr_v_app_comma,fcb_l_attr(ap),100$ ;if append comma 
51 07 0088 207 decl ri sthen don't copy the comma 
50 33 OOBA 208 100$: ushl r0 ;save Length remaining in buf 
0192 0 00BC 209 sbw Gopy chars scopy intervening chars to the field 
8E D5 OOBF 210 tstl (sp)# idid we find a quote 
oe 35 bors $1) beql 80 :if eql, no so go again 
aoc3 318 3; quote found. 
1C AC D6 $bc3 sig 110$: incl fcb_l_buf_pt (ap) :skip the quote 
18 AC 1C AC D1 O00C6§ 216 cmpl fcb_l_buf_pt(ap), - send of buffer? 
00CB 217 fcb-|~buf_end(ap) : 
0B 41F OOCB 218 blssu 1208 :if issu, then no 
027A 30 OOCD 19 bsbw pl 'SSget rec ;get new record ; 
03 0c AC 00 4 00D0 20 bbc atr_v_eof,fcb_l_attr(ap),120$ ;if not eof continue 
014C 1 ite $3 brw 310$ ;treat eof as terminator 
444 check for double quotes 
Kea 27 Wi ad: 5 120s: cmpb #*x27,afcb_l_buf_pt(ap) ;is next char a quote? 
A 12 Q0D¢ § bneq 1408 :if neq, then no 
14 AB 10 AB D1 00D cmpl str_l_fld_pt(r11), - ispace left in field? 
00E 8 str-l~fldzend(r11) y 
OA 1F QOE 9 blssu 1308 iif lssu, yes, continue 
50 00000000'8F p0 0€5 0 movi = #pLi$_strovfl,r0 set field overvflow 
02A6 1 Ree 1 brw fai sand fail | : 
10 BB 27 90 ODEF 2 130$: movb #*x27,astr_l_fld_pt(r11) ;copy a single quote to field 
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10 A D6 O0F3 3 incl tr_l_fld_pt(r11) sinclude quote in field 
9 11 - brb +08 1 Sed 390 again . 
OF gi sroutine to check for valid terminator. if cher f Boeptes to by fcb_l_buf_pt(ap) 
OOF zis a blank or tab or comma, r0 is non-zero. L_buf_pt(ap)"iS a Comma, 
Boe gi :comma exp is set false. else, it is set to see 
ite 40 ; : 
ti rf scheck for bit constant 
QOOO00000'GF 1¢ BC O01 2B Sor8 2g 140$: spanc #1 ,Ofcb_l_buf_pt(ap), - ;is next char a blank, 
{3 $19) 44 By “stan, Bterminator’ ;tab or coumet 
03 12 0102 245 bneq :if neq, no, look for b/B 
011D 31 0104 sts brw $408 iif neq, then we found terminator 
1¢ BC) «642 BF O91 Ss (0107 47 150$: cmpb #*x42,afcb_l_buf_pt(ap) ;next char a B? 
11 13 010C see beql 170$ sif eql, then ¥ 
1° BC «662 BF O91 p10 49 cmpb #*x62,afcb_l_buf_pt(ap) ;next fers 
OA 13 011 250 beql 170$ tif eg* é aL, yes 
50 Q0000000'8F DO 0115 251 160$: movil #pli$_cnverr,r0 zset invalid conversion 
0276 31 O11C 52g brw fail sand fail 
O11F 253; 
O11F 254 ; found a b/B. 
OIF 386259 & 
1C AC 06 O11F 256 1708: incl  feb_t_buf_pt(ap) iskip b/B in buf 
18 AC =61C AC) D1 0122 == 57 cmpl fcb_l_buf_pt(ap), - ;buf exhausted? 
0127 258 fcb ga tul endl ap 
08 1F Q127 259 blssu_ 1808 sit + no 
O21E 30 0129 260 bsbw plisse get_re new buffer 
Oc Oc AC 600) «CEO «(012C~—Cs 261 bbs atr_v_eof, fcb_ l attr(ap) 1908 sif eof, treat as terminator 
00000000'GF 1¢ BC 01 2B 0131 262 180$: spanc #1,a%cb_l_buf_ptTap zis next char a blank, 
13 013A 26 spt i8b- “see Meatnaten” stab or comma 
05 12 0138 $0 bneq :if neq, no Ea for 1-4 
50 01 DO 0130 265 1908: movi 4#1,r0 treat as bi 
31. 11 0140 266 brb 230$ continue 
50 1C BC 9A 0142 267 200$: movzbl afcb_l_buf_pt(ap).r0 sget next char 
50 30 C2 0146 268 subl #*x30,7r0 normalize char to bin 
CA 15 Q149 269 bleq 1608 zif leq, then invalte. char, fail 
064 50 01 O148 270 cmpl r0,#4 zis it greater that 4? 
CS 14 QO14E 271 bgtr 166$ :if gtr, then invalid char, fail 
50 dD 0150 si¢ pusht r0 ssave radix 
1C AC D6 813 27 incl fcb_l_buf_pt (ap) :Skip the 1-4 
18 AC 1C AC D1 015 274 cmpl fcb_l_buf_pt(ap), - :buf exhausted? 
015A 9275 fcb-|~buf—end(ap) 
08 iF S124 16 blssu 2108 hit issu, no, continue 
O1EB 9 30 Q15C 7 bsbw he ae I get new record 
C Oc AC 00 £0 O15F 278 bbs atr_v_eof, fcb_ attr(aps 2208 ;if eof, treat as terminator 
Q0000000'GF 1¢ BC 01 2B 0164 279 2108: spanc #1,afcB_l_buf_pt tt ap) ook for a terminator 
13 0160 80 gcplisb-scan,Fterminator : 
AS 12 016 81 bneq 60$ if neq, then no terminator, error 
50 8ED0 Bie es 2208 popl r0 srestore radix 
017 4 ; allocate room for the bit string on the stack. convert the char string to 
O17 bg 3 a bit string, based upon the character after the b/B. 
17 : ; local reg usage 
0173 3 : rQ - radix, number of bits per char 
0173 9; ri = pointer to next char in field 
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17 90 ; r2 = number of bytes to allocate for bit temp 
17 91 ; r5 = number of bytes in field ; 
17 35 ; r4 = 2e*(r0-1)-1 max valid integer in field 
17 93 ; r5 = current char 
Wf 3¢ 8 r6 - offset into bit temp 
00000230°EF 9F O17 38 230$: ushab 320$ sset return address 
179 97 pli$S$chrbitn_ré:: sentry for getformat 
51 18 AB a 179 98 mova str_b_field(ri1),r1 sget addr of start of field 
53 10 ag jij Be. 17D 99 sub ri,str_l_fld_pt(r11),°3 ;get length of field 
50 cS 0182 00 mull r0,r3,r2 get number of bits required 
52 g? £8 8188 01 addl #7,r2 round up 
— =. a 8 01 8 ashl #-$,72,r2 sget number of bytes to allocate 
5E 2s C2 018E 0 subl r2,sp allocate temp 
FF AES 94 0191 04 clrb a4 sp Cred iclear last byte 
54 01 50 78 0195 05 ashl r0,#1,r4 get the max bit value 
54 D7 0199 06 decl r : 
56 D4 0198 07 clrl r6 start at bit offset 0 
4A 11 0190 08 brb 280$ enter loop 
55 81 9A O019F 09 240$: movzbl (ri)+,r5 spick up next char 
55 30 82 O1A2 10 subb #*x30,°5 ifind bit equiv 
OA 18 O1A5 311 bgeq 260$ :if geq then continue f 
50 00000000'8F D0 O01A7 318 250$: movil #pli$_cnverr,r0 selse set invalid conversion 
O1E4 31 OQTAE 1 brw fail sand fa 
09 55 91 O181 314 260$: cmpb r5,49 zis it a number? 
1¢ 15 0184 315 bleq 270% :if leq, then yes, cont 
10 55 91 Q186 316 cmpb r5,#16 sis it between 9 and A 
EC 15 0189 317 bleq 256$ sif leq, then yes, fail 
55 07 82 01B8B 318 subb #7,°5 stry for cap A-f 
OF 55 91 OBE 319 cmpb r5,4#15 zis it A-F? 
OF 15 O1C1 320 bleq 276$ sif leq, then yes, cont 
~ ss 9 GS: Be cmpb r5,#41 sis it between F and a? 
DF 15 0106 322 bleq  256$ :if leq, then yes, fail 
55 ¢0 82 01C8 32 subb #32,75 stry for a-f 
OF 5 91 O1CB 324 cmpb r5,#15 zis it a-f? 
02 15 O1CE 325 bleq  270$ tif leq, then yes 
DS) 6.11 «20100 $8 brb 250$ zsit's past f, fai 
54 55 91 01D2 7 270$: cmpb r5,r4 sis it in range? 
DO 3614 «20105 28 bgtr 256$ ; if gtr then fail 
55 FE23 CF45 9E 0107 $3 movab creyel ys toprsi.rs sget addr of table entry 
55. 6544 90 01DD 0 movb (r5)Cr4),¢r sget the reversed bits of the value 
6— 50 56 55 £F0 pie} 33) insv r5,r6,r0, (sp) zsinsert reversed bits in string 
56 50 CO O1E6 3 addl r0.r gaddress next offset 
B3 23 F4 RIE? ; $808: sobgeq r3-9008 ; 3g0 again 
18 AB 6E .: @ lec 4 290$: move r2,(sp),str_b_field(r11) ;copy temp to field 
— 6 (6 a4 22 mov ri,s : iclean stack 
54 00000048 8F DO OIF4 § mov #cvt_k src_abit,r4 sset data type 
50 18 AB 9E ire 3 movab str_6_Tield(r11)5,r0 :set data address 
51 56 DO OIFF 8 movl r6,r1 set data size 
05 0308 i3 rsb return 
oso e > not a quoted string. find the terminator, copy intervéning chars to field 
50 18 AC 1C AC C3 : rk $00$: subl3  fcb_l_buf_pt(ap), - get length left in buf 
9 344 fcb"\“bufzend(ap).r0 —; 
00006000'GF 1¢ BC 50 2A ) 45 scanc 0,dfCb_l"buf_pt(ap), - ;look for a blank, 
13 12 46 g*pli$b_stan,#terminator ;tab or comma 


—————————— 
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D 1 47 ushlt 0 save result 
0089 : 13 rh sbw copy chars : Copy chars to field 
3 D 1 4 tstl z idid we find the terminator? 
1 1A 50 bneq 33 $ :if neq, yes, all done 
0128 30 O21C 51 bsbw diag gh og 8 a new recor rd 
DF OC AC 600) «CEs if 3g bbc atr_v Ste feb. l _attr(aps- 00$ ;if not eof, go again 
6 4 54 ; finish up. set size in ri, addr in r0, char src case index in r4, update 
8 r 2? 3; column in fcb. 
50 18 AB 2 0224 28 $10$: mova str_b_field(r11),r0 :set address 
a» wee WwW E 8 8 28 subl r0,str_l_fld_pt(ri1),r1 ;set size 
54 2D 00 D 5 mov L #cvt_k_sfc_char.r4 ;set data type 
OC AC O04 C8 8S 0 60 320$: bist #atr_m_comma “Bxee fees l attr (ap) sset comma expected 
1c BC) 3«62C)| 91 (0234 30] cmpb #°x22,Bted_L buf_pt(ap) ;was the terminating char a comma? 
04 12 0238 $6 bneq 330 :if neq, then no 
OC AC 04 CA OQ23A 6 icl bate _m_comma_ex feb at atte fae) is ;¢lear comma expected 
OD OC AC 00 €E0 oc zt 64 330$ bbs fete v_eof, fcb_l_attr(ap) f eof, don't touch column 
1C AC 06 bS¢ 65 nel cb_T_buf pt (ap) skip cht terminating character 
52 1C AC 14 AC C3 0246 66 subl3 tebe \“bufTap), supdate column 
024C 367 b_ "buf “pt(ap), r2 : 
2E AC 3652) «=6BO C024C S368 movw rs, ¥cB_w_column(ap) : 
05 0250 369 340$: rsb zyreturn 
0251 370 
0251 371 -dsabl sb 
0251 372 
0251 373 ;++ 
0251 374 ; copy_chars 
0251 375; : 
0251 3/8 3; copy chars from buffer to field. 
0251 77 ;-- 
0251 3/8 copy_chars: 
50 51 Cac C3 0251 79 subl3  fcb_l abut Pt (ap) er ri,r0. ;get len -“* to move 
51 10 AB 50 C1 0256 380 addl3 sr 0, 5tr_ _pt(ri1$,r1 swill this put us 
14 AB 51 D1 0258 381 cmpl ri,str_ {> fld-end(r 115" ipast end of field? 
OA 1F O25F 388 blssu. ‘1 :if lssu, then no 
50 00000000°8F D0 0261 ; 3 movl get is. strovfl,r0 tset field overflow 
01 31 Bsce 84 brw A sand fail 
10 BB 1C BC 50 28 O268 385 10$: moveS r0,afcb_l_bui ps (ap). - ; Copy to field 
0271 86 astr_l_Fld_pttri 
1¢ AC 51 00 8558 87 mov l ri,ftb_l_buf “ot (ap) tupdate buf pointer 
10 AB «53 = «©D0 0275 88 movl r3, str_l~fld-pt(r11) supdate field pointer 
05 0279 89 rsb yreturn 
bseA 90 
027A 91 Pia r6 | 
Bs tA 8 ; . 
7A 93; r0 - width of field to get 
027A 94 ; outputs: | 
027A 95 ; r0 = addr of str_b_field(r11) 
027A 96 ; ri- Length of field 
037A 97 : side effects 
027A 98 : stream block and fcb updated 
7A 99 ; r2-ap preserved 
7A ht pli$sgetnedi-r 
OA OC AC ‘3 E1 7A =401 C #atr_v_eof,fcb_l_ acertap} 2$ ;if end of file 
50 00000009 0 7F «6402 18 mov | oot is. éndfile,r0~ et endfile code 
1 86 40 brw fail i fail 
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PLISGETBUFFER - pli runtime input buffer manipulation 16-SEP-1984 02:18:51 VAX/VMS Macro v04-00 Page 9 PL 
tb0s : r o-SEp= 1984 99:38:9) PLIRTL.SRCIJPLIGETBUF .MAR; 1 . (1). Ps 
vere 8F BB 9 $86 2$: pushr #*m<r2,r3,74,75,r6> ;save regs ; 
10 aB As 9E D 405 movab str_b_field(r11S,str_l_fld_pt(ril) sstart at beginning of field 
2 DD é $38 pushl fr save requested width 
56 0 09 94 & mov r0,r6 :copy width 
50 1aAC i1aAC C 97 $88 5$: subl3  fcb_l_buf_pt(ap), - iget length left in buffer 
9D 40 fcb-\“buf-end(ap) ,r0 : PS 
02 0C AC 15 €1 9D ©6410 bbc #atr_v_app_comma,fcb_l_attr(ap),6$ ;if append comma set = 
50 «(7 A2 411 decl r0 don't count comma : 
50 DS O2A4 aig 6S: tstl 0 sset cond code | $A 
19 14 0 Ap 41 bgtr 10$ ; gtr gont aff 
2A 0C AB OS gS 02A8 414 7$: bbsc #str_v_null_Lline,str_l_fs(r11),155$ ;if null Line, return it 
009A 0 8 AD 415 8$: bsbw plisSget_rec j9et a new recor 
—E2 0c AC O00 €1 BO a3 bbc atr_v_eof,fcb_l_attr(ap),5$ ;if not eof, cont 
C5 OC AC }615)~=—C ET «6028541 bbc #atr_v_app_comma,fcb_l_attr(ap),1$ ;if not append comma fail 
6— 56 D1 O2BA 418 cmp l r6, (Sp) jwas there anything copied yet? 
CO 4613 O2BD 419 beql 1$ if eql, no, endfile 
16 11 O2BF 420 brb 155$ suse what we copied 
56 50 01 O2C1 $s! 10$: cmpl r0,r6 zis there enough in the buffer? 
iB «(18 O3C4 42¢ bgeq 208 :if geq. then yes 
56 50 C2 02C6 ts subl r0,r6 sget length not processed 
51 18AC DO 0209 424 mov l fcb_l_buf_end(ap),r1 set end addr for copy 
02 0C AC 15 €1 O2CD t$2 bbc #atr_v_app_comma,fcb_l_attr(ap),15$ ;if append comma set 
51 D7 O2D2 426 decl ri :don't copy comma 
FF7A 30 0204 427 15$: bsbw copy_chars scopy from buf to field 
D1 OC AC 15 €1 O2D7 428 155$: bbc #atr_v_app_comma,fcb_l_attr(ap),8$ ;if not app comma, get a rec 
6€ 38 t¢ asoe £$3 puat 66, (Sp iget ength of what we did 
r ;con 
51 10 AC 56 C1 Q2E1 431 208: addl\3 ss r6, fcb_l_buf_pt(ap).,r1 get end addr for copy 
FF68 30 O2E6 432 bsbw copy_chars scopy from buf to field 
2E AC 56 AO OQO2E9 433 30S: addw r6,fcb_w_column(ap) jupdate column 
50 18 AB 9E O2ED 434 movab str_b_Field(ri1),r0 set address of field 
51 B8EDO O2F1 435 popl r set Length 
007C 8F BA O2F&4 436 popr #*m<r2,r3,°4,r5,r6> srestore registers 
05 O2F8 437 rs sreturn 
gs te 
O2F9 440 ;++ 
osee 441; pt 1stgersk lore - skip records for stream input 
OS mek 3; pli$$getskpl_r2 - skip 1 record for stream input 
Ose 178 ; functional description: | 
02F9 446 : This routine preseeess the skip option and skip formats of get statements. 
8 FQ «447 ; It is called 1 pli$$getnlis_r6 and pli$$getnedi_ré6. It will read enough 
F9 448 ; records to satisfy the skip fFequest and update the Line number and column 
0 + ret 3; number of the stream file's fcb. 
FQ 451 ; inputs: r2 = number of skips to process | 
F9 £26 ; outputs: none 
FQ 453 je 
8 “ $23 -enabl Lsb 
| 
F9 +2$ pli$S$getskp1_r2:: 3 ; 
52 01 00 F945 : mov | #1,r2 zset to skip 1 
FC $28 pl{SSgetakiorer: , : 
18 AB QO000A0D ¥! DO O2FC 45 mov #*x0a0d,str_b_field(r11) ;set to prompt with <cr><lf> 
0096 CC 2 90 0304 460 movb #2,<fcb_b_rabtrab$b_psz>(ap) ;set prompt size in rab 
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6-SEP=1984 02:18:51 VAX/VMS Macro V04-00 Page 
g-SEpa198¢ 14:38:07 EPCIRTC. SReIPL Ice TBUF.MAR:1 ° 22 
movab str_b_field(ri1),<fcb_b_rab+ = ;set prompt addr 
rab$l"pbf>(ap) sin ra 
bisl #rab$i_pmt,<fcb_b_rab+rab$l_rop>(ap) ;set to prompt in rab 
bicl #atr_m_currec,fcb_l_attr(ap) ;clear currec to do skips 
bbc #atr_v_virgin, fcb_l Hehe t 10$ :skip first rec if virgin 
5$: bbs #atr vieof,fcb_l_attr(ap), 0$ if’ eof, signal endfile 
bsbw pli$$get_rec iskip a record 
10$: sobpea r2,5$ ;dec count and go again 
bis #atr m.curres. fcb.t attr 20” ;set currec to turn off skipping 
bicl #rabSm_pmt,<fcb_b_rab+trab$ £10? ‘ap? iclear prompt in ra 
rs sreturn 
20$: mov l #pli$_endfile,r0 sset endfile condition 
fail sand fail 


brw 
-dsabl ILsb 


aa 
pli$$get_rec 
functional description: 


This routine reads records from a stream file. It will append a blank 

to each record if atr_m_app_comma is set in fcb_l_attr. null records are 
are ignored unless append comma is 1 or atr_m_currec is 0. if atr_m_currec 
is 0, we are processing a skip function so null records count. if the 

end of file is encountered, atr_m_eor is set, and a null record is 
returned. if atr_m_eof is set when this routine is called, the endfile 
condition ; is raised. 


inputs: atr_m_currec = 0 to process a skip. 
atr_m_app_comma = 1 will append a blank unless we are 
pore oe a quoted string 
outputs: rO = number of chars in record 
atr_m_virgin = 0 (file has been touched) 
fcb_w_column is set to 1 
the buffer pornten to by fcb_l_buf gets the next non-null 
record. 


-enabl lLsb 


pli$$get_rec:: ; ; 
Bicl #str_m_null_line,str_l_fs(r11) ;assume not a null Line 
bbc #atr-v-string, fcb_l_attr(ap),10$ ;if string 
tsti str Cfptrtt sis this get edit? 


bneq ;if neq, yes, cont 
Hy #atr_m_eof,fcb_l_attr(ap) yset end of file 
rs sreturn 
1$: mov l #pli$_endstring,r0 set endstring condition 
brb ail zand fail 
10$: movl #pli$_endfile,r0 sassume eof : 
bbs #atr V_eof,fcb_l_attr(ap), fail :if eof already, fail 
11$: $get fcb_b rab(ap) zget the recor 
blbs r0,3 sif lbs, cont 
15$: cmpl r0,#rms$_eof send of file encountered? 
bneq 20 ;if neq, then no 
bisl  #atr_m_eof,fcb_l_attr(ap) ;set end of file in fcb 
brb 40$_ ;cont inue 
20$: movl #pli$_rmsr,r0 zset rms rab error 
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PLISGETBUFFER 6-SEP-1984 02:18:51 AX/VMS me cro v04-00 Page 
1-002 6-SEP-1984 11:38:07 CPLIRTL.SR CIP LIGETBUF .MAR;1 
5C Db 0395 18 fail pushl a set fcb addr 
00000000'8F 50 01 8 97 19 cmpl rb #pli$_endfile sendfile condition? 
19 13 039 0 beql  25$ tif eql, yes, cont 
5 DD O3A 1 pushlt r0 set error code 
Q00000000'"8F DD A § pushl og iS error set error condition 
00000000'GF 03 FB A 23$: calls #3,g*pli$io_error ssignal error 
04 AF 4 ret sreturn 
00 odd 038 525 258: pusht #0 zset no error code 
00000000'8F DD bee 5 § ushl #pli$_endfile iset endfile condtion 
ce ua 8 B 5 rb $ ignal endfile 
50 0084 CC 3C Q3BA 528 30S: movzwl <fcb_b_rab+rab$w _rs2>(aps er Bsa be ef record 
8 is pyar 2 9 bneq $~ nt 
OC A ia C1 0 bisl #str_m_null_line,str_l fs (FI) “t snaieate null Line 
14 AC O0ea CC dO O3C5 531 358: mov <fch_boraberebs! rb{3i3e), fceb_l_buf(ap) ;set buffer address 
18 AC «614A 50 C1 03CB 236 addl3 rr 0, ftb_l_buf(ap)> - :set t é@nd of bvifer 
0301 +53 fcb_l_Buf_ end(ap) 
09 0C AC 15 €1 Q3D1 534 bbc #atr_v_ao op. comma, fcb_l _attr(ap), 40$ ;if append comma set 
18 BC 20 90 0306 535 movb #*x20,5fcb-l_buf endtap) ;then append a comma 
18 AC D6 O3DA 536 incl fcb_l_buf_end(apy supdate end of buffer 
50 D6 O3DD 537 incl r0 supdate number of chars in rec 
2—E AC 01 BO O3DF 538 40$: movw #1,fcb_w_column(ap) zset column to 
1c AC 14 AC DO O3E3 539 mov l fcb_l_Buf(ap),fcb_l_buf_pt(ap) ;update buf pointer 
18 AC 14 AC Di O3E8 540 cmpl fcb_ |“ buf (ap), fcb_l_byf_ sogtap? smut t record? 
OD 12 O3ED 541 bneq 60$~ : neq then no 
08 OC AC 12 €E1 OQSEF 206 bbc #atriv acurrece trot sttrisel t $i sif currec set (not skipping) 
03 OC AC rte fo O3F4 54 bbs #atr_v_eof Llattr(ap), 60$ ;if- eof, return 
F4E 1 O3F9 544 brw Li$Sget hy then go again 
OC AC 02000000 8F CA O3FC 545 608: bicl atr_m atoréce feb. t atttles! stile has been touched 
05 0404 546 rsb sreturn 
0405 547 
0405 548 -dsabl (sb 
0405 549 end 


~ 
> 


em 


PL! 
1=( 


4 


C 
time input buffer manipulation 


= pli run 


PLISGETBUFFER 


Symbol table 


" 
0 
D 


eeeeeene 
eeeeeeee 
eeeeenee 
teeeeees 
teeweeee 
eeetenee 
0000034 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
eeenee 
0000013 


OOOO TOOOCOOCOCOOOOCOOOOSOOo #O& 
nhunnnn uu “uu u 


Oouww 

Oo 222 

z a [ve Teel 

wie ad 2ae _— wo 

[. ue Ts wo a wa Zz wwit 
Ds te ed: =| ie w Venus « 
Ww MOGCONuuworer wZzaa Qa «a4 0 
PooecrVevmomo kw wo —wiIjjAavMtoarrDD 
222ea8Braacerac CO & jeu usr OAYUYSZ Sr 
VOusuwerw £8 8 6 t bw @eeepepreeeee ts tue 
tt ¢ t Msgs § MOvVvsjgsjsjsjsjsjJjkz>vue 
PAPRPAALAAAAAAMD HA oeepeprevreres t w= 
SS OO MOMOMOO-UnNnaeecaecaecaecaecaeacwac 
ajtjIJJ Je eee Et ee 
Qaqcaaa cee eee ecCMwmMnnwinininvwnnnnnuwnwre 


xX 


= 00000002 
rreerene 


PREVIOUS 
PAGESIZE 


PRN 
_ERROR 


BLANK 
1$C_ COMMA 


QoOooooaoooo- 
Mee Mie ie i ie Na Na Mie le Mae ae ae Ci Nai Ale Ne Se Sale Sa ii ie Sar Mae de ae fii Ar Se be lie te CL CL. CL. 


a <a 5 
Pa =x ax 
w Zw ade zw 
2 2O ww YU2Z Ort ‘'@ z 
<wemvdw 2 adv a@ ft ee VY w 
=- 9° 2a se Ov tie age 22 x aa cao 
Se ee Se eeeey ><«re re tht ite ox 
NOCESLOCTINSEOAD Bwwernsze sn<{D 22 
—_ 
= = ssxsx>>>>>>" nu anananamanow #, s 
ee otedacentaceteterat. tw salon'ontontontontonon'on'oa'en'natntoe Se 
> 2 eo Qowoaogano 
PARR Re ee ee Om Om EVV OV OOOO VOOOUUO VVoYU 
PAazaaaaaaaacaevuoU ee he 8 te x 


PLISC 
PL 
PLI$I 


PLISGETBUFFER - pli runtime input buffer manipulation 16 baat 9 Oe: 48:3) ah hi Macro V04-00 Page 13 
Psect synopsis 6-SEP=1984 11:38:07 CPLIRTL.SRCIPLIGETBUF .MAR; 1 q 
eeesreeseeerce eocece+ 
' Psect synopsis H 
PSECT name Allocation PSECT No. Attributes | 
, OS « 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
S$ 00000C08 ( 3080.) O01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_PLISCODE 00000405 ( 1029.) 02 ¢ 2.) PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
| 
poem naan ane nr ao ne ence aes | 
; Performance indicators ! | 
Phase Page faults CPU Time Elapsed Time 
Initialization 9  00:00:00.05  00:00:00.37 
Command processing 75 00:00:00.53 00:00:02.89 
Pass 227 00:00:09.37 00:00:19.41 
Symbol table sort 0 00:00:00.97 00:00:02.13 
Pass 2 109 00:00:02.09 00:00:04.27 
Symbol table output 9 00:00:00.08 00:00:00.18 
Psect synopsis output 2 00:00:00.03 00:00:00.03 
Cross-reference output 0 Op 8808-98 00:00:00.00 
Assembler run totals 43) 00:00:13.12 00:00:29.28 
The working set Limit was 1200 pages. 


he izncermediate code 


51821 bytes (102 pages) of virtual memory were used to buffer ‘ 
non-local and 63 local symbols. 


There were 40 pages of symbol table space allocated to hold 78 


549 source lines were read in Pass 1, producing 12 object records in Pass 2. 
pages of virtual memory were used to define 20 macros. | 
$e wwwww wwe wwe www nen nnnnnene + 
H Macro Library statistics H 
aampapnienenernaraerearenniaaie | 
Macro Library name Macros defined 
_$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 5 
$255$DUA28: CSYSLIBJSTARLET.MLB; 2 11 
TOTALS (all libraries) 16 


880 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=TRACEBALK/LIS=L1IS$:PLIGE TBUF /OBJ=0BJ$:PLIGETBUF MSRC$:PLIGE TBUF /UPDATE=(ENH$:PLIGETBUF )+L1B$:PLIRTM | 
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